home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / sounds.bas < prev    next >
BASIC Source File  |  1991-10-18  |  7KB  |  151 lines
  1. 1000 KEY (1) ON :ON KEY (1) GOSUB 2400:PLAY OFF
  2. 1010 '
  3. 1020 '  M-028 / "SOUNDS OF SUMMER　（Ｃ）"
  4. 1030 '
  5. 1040 '  COMPOSED BY T.Sk"y & SANOchan
  6. 1050 '  ARRENGED BY SANOchan ON FM-7series
  7. 1060 '  ARRENGED BY T.Sk"y   ON FM-TOWNS
  8. 1070 '
  9. 1080 SCREEN@ 0:BGM 1:PLAY OFF
  10. 1090 FOR I=0 TO 13:PART I,I:NEXT:GOSUB *TITLE
  11. 1100 LOAD@"Q:\FJ\FM\MT32FM.FMB":LOAD@"PDRUMS.PMB":GOSUB *PCM_INST_CHANGE
  12. 1110 T$="T158Q8U0%CL8"
  13. 1120 FT1$="@73O5V8Q7":FT2$="@73O5V7Q7U60":FT3$="@69O2V10Q7"
  14. 1130 FT4$="@08O4V7Q7":FT5$=FT4$:FT6$=FT4$
  15. 1140 PT1$="@2O4V15L16%L5CCL4C":PT2$="@2O4V15U80L16%R5CCL4C"
  16. 1150 PT3$="@1V15O4L4":PT4$="@4O4V6%L3R8F4&":PT5$="@5O4V7%R3"
  17. 1160 PT6$="@8O4V15%R12U-40":PT7$="@8O4V15%L12U40"
  18. 1170 '---- MELODY
  19. 1180 M1$="GF#GDRDRDCDEDR2"
  20. 1190 M2$="GF#GDRDRDC<BAGR2>"
  21. 1200 M3$="@89O5V11EF#GF#&F#4.A16G16F#GF#D&D2"
  22. 1210 M4$="EF#GF#&F#4.A16G16F#EF#G&G2"
  23. 1220 M5$="EF#GF#&F#4.A16G16AGF#E&E2"
  24. 1230 M6$="EF#GF#&F#4.A16G16ABAG&G2"
  25. 1240 M7$=">C<BAGQ7F#4GQ8A&A1"
  26. 1250 M8$="Q7AAQ8GF#E4Q7F#G&G4.Q8B&B2"
  27. 1260 M9$="Q7AAQ8GF#E4Q7F#GR1"
  28. 1270 M10$="B>CD<B&B4.A16B16>C<BAG&G2"
  29. 1280 M11$="AAB>C&C4.C16D16C<A>C<B&B2"
  30. 1290 M12$="EEF#G&GA4D&D2C4<BA&"
  31. 1300 M13$="Q7A1&A2@08V6%RL24O3DEF#GAB>CDEF#GAL8@89O5V11%C"
  32. 1310 M13S$="Q7A1&A2@08V6%LL24O3U0DEF#GAB>CDEF#GAL8@89O5V11%CU60"
  33. 1320 M14$="E4DC<BAR>D&D4C<BAGR>C&"
  34. 1330 M15$="C4<BAGF#RA&AR4.ABAG&"
  35. 1340 M16$="G1&G1&":M16S$="G1&G1%L@73O5Q7V8U0"
  36. 1350 '---- E.BASS
  37. 1360 B1$="GGGGGGG16>G16<F#&F#F#F#F#F#F#F#16>F#16<G&"
  38. 1370 B2$="GGGGGGG16>G16<G&GGGGGGG16>G16<G&"
  39. 1380 B3$="EEEEEEE16>E16<F#&F#F#F#F#F#F#F#16>F#16<G&"
  40. 1390 B4$=">CCCCCCCC<F#F#F#F#F#F#F#16>F#16<F#"
  41. 1400 B5$=">DDDDDDDD<GGGGGGG16>G16<G"
  42. 1410 B6$=">DDDDDDDD<Q4GQ7DGB>CEFF#<"
  43. 1420 B7$="GGGGGGGGEEEEEEEE"
  44. 1430 B8$=">DDDDDDDD<BBBBBBBB"
  45. 1440 B9$=">CCCCCCCC<BBBBBBBB"
  46. 1450 B10$="DDDDDDDDDDDDV12Q3D16D16>Q7D<Q2D>Q7D<V10"
  47. 1460 B11$="AAAAAAAG&GGGGGGGF#&"
  48. 1470 B12$="F#F#F#F#F#F#F#>D&DD>D<RC<GF#G&"
  49. 1480 B13$="GGGGGGGG GGGGGGGG"
  50. 1490 '---- CODE
  51. 1500 C11$="G2&GGGGG4.G&G2":C12$="G4.G&G2A4.G&G2"
  52. 1510 C21$="E2&EEEED4.D&D2":C22$="E4.E&E2D4.D&D2"
  53. 1520 C31$="C2&CCCC<B4.B&B2>":C32$="C4.C&C2<B4.B&B2>"
  54. 1530 C13$="B1A1":C23$="G1E1":C33$="E1C1"
  55. 1540 C14$="A1G1":C24$="F#1D1":C34$="C1<B1>"
  56. 1550 C15$="A1<%RRDGB>CEFF#%C":C25$="F#1<%LRDGB>CEFF#%C":C35$="C1<%CU-60RDGB>CEFF#U0"
  57. 1560 C16$="G2&GGGGG4.G&G2":C26$="E2&EEEED4.D&D2":C36$="C2&CCCC<B4.B&B2>"
  58. 1570 C17$="G4.G&G2F#4.G&G2":C27$="E4.E&E2D4.D&D2":C37$="C4.C&C2<B4.B&B2>"
  59. 1580 C18$="@50O4B1B1":C28$="@50O4G1G1":C38$="@50O4E1D1"
  60. 1590 C19$="A1A1@08O4":C29$="F#1F#1@08":C39$="C1D1@08"
  61. 1600 C1A$="@50O4A2.&AG&G2.&GF#&":C2A$="@50O4E2.&ED&D2.&DC&":C3A$="@50O4C2.&C<B&B2.&A&"
  62. 1610 C1B$="F#2.&F#@08O4F#&F#F#F#RF#4.R@73O5V8Q7%R":C2B$="C2.&C@08O4D&DDDRD4.E&":C3B$="A2.&A@08O3A&AAARA4.>C&"
  63. 1620 '---- DRUMS
  64. 1630 BD1$="CCCCCCCC"
  65. 1640 BD2$="CCCCCCR8C16C16C"
  66. 1650 BD3$="CCCCCCC8C8C"
  67. 1660 BD4$="CCCCCRRC"
  68. 1670 BD5$="CCCCR8C8C8RCC8"
  69. 1680 BD6$="CCCC CCC16C16RC16R16"
  70. 1690 SD1$="RCRCRCRC"
  71. 1700 SD2$="RCRCRCR8C8C"
  72. 1710 SD2S$="RCRCRCR8C8@7%L4B16%R1F16%R7C8@1%C"
  73. 1720 SD3$="RCRCCRRC"
  74. 1730 SD4$="RCRCRCRC16C16C8"
  75. 1740 SD5$="RCRR8CL8CCRCR4CL4"
  76. 1750 SD6$="RCRCRCL8RC@7%R7C@1%CC16C16L4"
  77. 1760 SD7$="RCRCRCC16C16@7%R1F8@1%CC16C16@7%R7C16C16@1%C"
  78. 1770 SD8$="RCRCRC@7%L4B16%R1F16@1%CC8@7%R1F16%R7C16@1%CC8"
  79. 1780 SD9$="RCRCRCR8C8C8R16C16"
  80. 1790 SD10$="RCRCRCR[L16CCCCL4"
  81. 1800 H1$="FFFFFFFF FFFFFFFF"
  82. 1810 H2$="FFFFFFFF FFFFFF16F16@4V2Q8F4@3V6Q5"
  83. 1820 H3$="FFFFFF16F16@4V2Q8F4@3V6Q5 FRRRRR@4V2Q8F4@3V6Q5" 
  84. 1830 H4$="L16FRFFFRFFFRFFFRFF FRFFFRFFFRFFFRFFL8"
  85. 1840 H4S$="L16FRFFFRFFFRFFFRFF FRFFFRFFFRFF@4V2Q8F4@3V6Q5L8"
  86. 1850 H5$="L16FRFFFRFFFRFFFRL8@4V2Q8F&F@3V7Q5FFRFF16F16@4V2F4@3V6Q5"
  87. 1860 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  88. 1870 PLAY FT1$,FT2$,FT3$,FT4$,FT5$,FT6$,PT1$,PT2$,PT3$,PT4$,PT5$,PT6$,PT7$
  89. 1880 PLAY M1$,M1$,,,,,BD1$,BD1$,,"F1&F1","F1&F1"
  90. 1890 PLAY M2$,M2$,,,,,BD2$,BD2$,"R1R2.C","R1R2.F4@3V6Q5%L8","R1R1"
  91. 1900 PLAY M1$,M1$,B1$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  92. 1910 PLAY M2$,M2$,B2$,C12$,C22$,C32$,BD1$,BD1$,SD2$,H2$
  93. 1920 PLAY M1$,M1$,B1$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  94. 1930 PLAY M2$,M2$,B2$,C12$,C22$,C32$,BD3$,BD3$,SD2$,H2$,,"R1R2RCG4","R1R2RCG4"
  95. 1940 FOR I=0 TO 1 
  96. 1950 PLAY M3$,M3$,B2$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  97. 1960 PLAY M4$,M4$,B2$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$
  98. 1970 PLAY M3$,M3$,B1$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$
  99. 1980 IF I THEN 2000
  100. 1990 PLAY M5$,M5$,B3$,C12$,C22$,C32$,BD1$,BD1$,SD2$,H2$
  101. 2000 NEXT
  102. 2010 PLAY M6$,M6$,B2$,C12$,C22$,C32$,BD1$,BD1$,SD2S$,H2$
  103. 2020 '
  104. 2030 PLAY M7$,M7$,B4$,C13$,C23$,C33$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  105. 2040 PLAY M8$,M8$,B5$,C14$,C24$,C34$,BD1$,BD1$,SD2$,H2$
  106. 2050 PLAY M7$,M7$,B4$,C13$,C23$,C33$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  107. 2060 PLAY M9$,M9$,B6$,C15$,C25$,C35$,BD4$,BD4$,SD3$,H3$
  108. 2070 '
  109. 2080 PLAY M10$,M10$,B7$,C16$,C26$,C36$,BD1$,BD1$,SD1$,H4$,"F1&F1"
  110. 2090 PLAY M11$,M11$,B8$,C17$,C27$,C37$,BD1$,BD1$,SD1$,H4S$
  111. 2100 PLAY M12$,M12$,B9$,C18$,C28$,C38$,BD1$,BD1$,SD1$,H4$
  112. 2110 PLAY M13$,M13S$,B10$,C19$,C29$,C39$,BD1$,BD1$,SD4$,H4S$
  113. 2120 PLAY M10$,M10$,B7$,C16$,C26$,C36$,BD1$,BD1$,SD1$,H4$,"F1&F1"
  114. 2130 PLAY M11$,M11$,B8$,C17$,C27$,C37$,BD1$,BD1$,SD1$,H4S$
  115. 2140 PLAY M14$,M14$,B11$,C1A$,C2A$,C3A$,BD1$,BD1$,SD1$,H4$
  116. 2150 PLAY M15$,M15$,B12$,C1B$,C2B$,C3B$,BD5$,BD5$,SD5$,H5$
  117. 2160 IF CODA THEN 2200
  118. 2170 PLAY M16$,M16S$,B13$,M1$+"%C@08V7Q7O4",C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  119. 2180 PLAY "G1&G1@73O5Q7V8",M1$+"%CU60",B13$,C11$,C21$,C31$,BD1$,BD1$,SD6$,H1$
  120. 2190 CODA=1:GOTO 1920
  121. 2200 '
  122. 2210 PLAY M16$,M16S$,B13$,M1$+"%C@08V7Q7O4",C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  123. 2220 PLAY "G1&G1@73O5Q7V7",M1$+"%CU60V7",B13$,C11$,C21$,C31$,BD1$,BD1$,SD7$,H1$
  124. 2230 PLAY M1$,M1$,B13$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  125. 2240 PLAY M1$,M1$,B13$,C11$,C21$,C31$,BD1$,BD1$,SD8$,H1$
  126. 2250 PLAY M1$,M1$,B13$,C11$,C21$,C31$,BD1$,BD1$,SD1$,H1$,"F1&F1"
  127. 2260 PLAY M1$,M1$,B13$,C11$,C21$,C31$,BD6$,BD6$,SD9$,H1$
  128. 2270 FOR I=0 TO 5
  129. 2280 PLAY M1$+"[",M1$+"[",B13$+"[",C11$+"[",C21$+"[",C31$+"[",BD1$+"[",BD1$+"[",SD1$+"[",H1$+"[","F1&F1[[["
  130. 2290 IF I=5 THEN 2310
  131. 2300 PLAY M1$+"[",M1$+"[",B13$+"[",C11$+"[",C21$+"[",C31$+"[",BD1$+"[[",BD1$+"[[",SD10$+"[",H1$+"[["
  132. 2310 NEXT
  133. 2320 PLAY M2$,M2$,B13$,C12$,C22$,C32$,BD1$,BD1$,SD1$,H1$
  134. 2330 GOTO 2390
  135. 2340 *TITLE
  136. 2350 CLS:LINE(60,30)-(590,130),PSET,1,BF
  137. 2360 SYMBOL(70,50),"Ｓｏｕｎｄｓ　ｏｆ　Ｓｕｍｍｅｒ",2,2,7,0,PSET,23
  138. 2370 SYMBOL(200,100),"COPOSED & ARRENGED BY 菅井つばめ & ＳＡＮＯ　（Ｃ）",1,1,7,0,PSET,22
  139. 2380 RETURN
  140. 2390 BGM 0:PLAY "R64":BGM 1
  141. 2400 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  142. 20000 *PCM_INST_CHANGE
  143. 20010 DIM PCM_SON(63) : RESTORE *PCM_INST_DATA
  144. 20020 FOR I=1 TO 8
  145. 20030   READ PCM_INST1,PCM_INST2
  146. 20040   VOICE COPY PCM_INST1,PCM_SON,1 : VOICE PCM_INST2,PCM_SON,1
  147. 20050 NEXT I
  148. 20060 RETURN
  149. 20070 *PCM_INST_DATA
  150. 20080 DATA 2,1,3,2,4,3,5,4,6,5,7,6,8,7,14,8
  151.